home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Information Management / Wingz / SDScript / Script06 (.txt) < prev    next >
Wingz Script  |  1989-06-07  |  5KB  |  156 lines
  1. WNGZWZSC01b1x
  2. Demo06
  3. Toolbox
  4. Pointer
  5. Circle
  6.     ArcNormal
  7.     ArcFilled
  8. SmoothPoly
  9. RegPoly
  10. Lines
  11. Circle
  12.     ArcNormal
  13.     ArcFilled
  14. SmoothPoly
  15. RegPoly
  16. Lines
  17. Imagination
  18. Mouth
  19. Left Eye
  20.     Right Eye
  21. Bubble Pointer
  22. Bubble
  23. Bubble Pointer
  24. Bubble
  25. Hello
  26. Imagination
  27. Hello
  28. SDOpen
  29. DoSound
  30. Segway
  31. boxmove
  32. looptimes
  33. pause
  34. define n, looptimes, pause
  35. repaint selections off
  36. looptimes = 2
  37. pause = .5
  38. call sd:SDOpen("Demo06",1)
  39. call sd:DoSound("Toolbox")
  40. wait for (sd:Segway*2) seconds
  41. select object "Pointer"
  42. clear
  43. hide fields
  44. for n = 1 to looptimes
  45.     call sd:boxmove("Box",pause)
  46.     call sd:boxmove("Circle",pause)
  47.     call sd:boxmove("ArcNormal",pause)
  48.     call sd:boxmove("ArcFilled",pause)
  49.     call sd:boxmove("SmoothPoly",pause)
  50.     call sd:boxmove("RegPoly",pause)
  51.     call sd:boxmove("Lines",pause)
  52. end for
  53. select object "Box"
  54. clear
  55. select object "Circle"
  56. clear
  57. select object "ArcNormal"
  58. clear
  59. select object "ArcFilled"
  60. clear
  61. select object "SmoothPoly"
  62. clear
  63. select object "RegPoly"
  64. clear
  65. select object "Lines"
  66. clear
  67. show notes
  68. call sd:DoSound("Imagination")
  69. wait for (sd:Segway*1) seconds
  70. hide notes
  71. { Object 1 }
  72. Unselect Add Polygon  
  73.  frac(E2,205,71,205,71),
  74.  frac(D6,184,149,184,149),
  75.  frac(E6,220,71,220,71),
  76.  frac(E4,50,213,50,213),
  77.  frac(E8,254,156,254,156),
  78.  frac(F8,241,120,241,120),
  79.  frac(F6,85,234,85,234),
  80.  frac(G9,1,92,1,92),
  81.  frac(H8,248,128,248,128),
  82.  frac(G4,43,241,43,241),
  83.  frac(H6,227,156,227,156),
  84.  frac(I6,156,85,156,85),
  85.  frac(H2,198,14,198,14)
  86. object number 1
  87. object name "Body"
  88. polygon
  89. poly smoothing on
  90. fill fg 0
  91. fill bg 16777165
  92. fill pattern 20
  93. { Object 2 }
  94. Unselect Add Oval Range frac(F2..H3,0,64,234,35)
  95. object name "Head"
  96. Object Location frac(E1..G3,191,220,163,191)
  97. fill fg 0
  98. fill bg 13558527
  99. fill pattern 20
  100. { Object 3 }
  101. Unselect Add Polyline  frac(F2,248,71,248,71),
  102.  frac(F3,64,163,64,163),
  103.  frac(G3,64,43,64,43),
  104.  frac(G2,234,99,234,99)
  105. object name "Mouth"
  106. polyline
  107. poly smoothing on
  108. line fg 255
  109. line bg 16777215
  110. line pattern 1
  111. line width 60
  112. no arrow
  113. { Object 4 }
  114. Unselect Add Oval Range frac(F2,78,71,142,135)
  115. object name "Left Eye"
  116. fill fg 0
  117. fill bg 16777215
  118. fill pattern 1
  119. { Object 5 }
  120. Unselect Add Oval Range frac(G2,85,28,142,85)
  121. object name "Right Eye"
  122. fill fg 0
  123. fill bg 16777215
  124. fill pattern 1
  125. Object Location frac(G2,85,0,142,57)
  126. { Object 6 }
  127. Unselect Add Polygon  frac(F2,142,198,142,198),
  128.  frac(F2,248,177,248,177),
  129.  frac(F2,248,241,248,241)
  130. Object name "Nose"
  131. fill fg 0
  132. fill bg 13496575
  133. fill pattern 20
  134. { Object 7 }
  135. Unselect Add Polygon  frac(I2,177,128,177,128),
  136.  frac(H3,191,213,191,213),
  137.  frac(J2,198,28,198,28)
  138. object name "Bubble Pointer"
  139. {Object 8 }
  140. Unselect Add Oval Range frac(H1..K3,156,71,28,163)
  141. object name "Bubble"
  142. select object "Bubble Pointer"
  143. select more object "Bubble"
  144. Object Location frac(G1..J3,28,156,64,248)
  145. select object "Hello"
  146. Object Location frac(H1..J2,92,71,92,71)
  147. bring to front
  148. select object "Imagination"
  149. clear
  150. unselect
  151. show notes
  152. repaint selections on
  153. call sd:DoSound("Hello")
  154. wait for (sd:Segway*2) seconds
  155. close now
  156.